home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
tcqbsnip.zip
/
CALCPAL.BAS
< prev
next >
Wrap
BASIC Source File
|
1997-06-20
|
565b
|
29 lines
' CALCPAL.BAS
' by Tika Carr
'
' Donated to the public domain
' No warranties or guarantees are expressed or implied.
'
' Purpose: Calculates palette for modes 11 - 13
DECLARE FUNCTION CalcPal! (mode%, r%, g%, b%)
DEFINT A-Z
'demo
SCREEN 13
x! = CalcPal!(13, 63, 40, 40)
PRINT x!
PALETTE 0, x!
DO UNTIL LEN(INKEY$): LOOP
SCREEN 0: WIDTH 80: COLOR 7, 0: CLS : END
FUNCTION CalcPal! (mode%, r%, g%, b%)
IF r% > 63 THEN r% = 63
IF g% > 63 THEN g% = 63
IF b% > 63 THEN b% = 63
PALETTE
CalcPal! = 65536 * b% + 256 * g% + r%
END FUNCTION